home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Larry Magid's Essential Internet
/
Larry Magid's Essential Internet (Quarterdeck Corporation)(1995).ISO
/
qsockpro.qip
/
PEGCITY.MPS
< prev
next >
Wrap
Text File
|
1995-10-09
|
1KB
|
61 lines
# Pegasus Networks - City (Australia) PPP script
# Copyright 1995 Quarterdeck Corporation
# 5-10-95 Earl White
STRING username
STRING password
TRACE OFF
SetTimeout 90 # reset maximum script timeout
# Get username from access method
CfgGetValue "Username" username
IF result = 0 THEN
GetInput "Enter your username:" username
IF result = 0 THEN
PRINT "Warning, no username entered."
ELSE
PRINT "Username set to:"; username
ENDIF
ENDIF
CfgGetValue "Password" password
IF result = 0 THEN
GetPassword "Enter your password:" password
IF result = 0 THEN
PRINT "Warning, no password entered."
ELSE
PRINT "Password set."
ENDIF
ENDIF
CommWaitFor "Username:"
CommSend "pegasus"
commSend "%r"
CommWaitFor "Password:"
CommSend "pegasus"
CommSend "%r"
# Connection to network setup - now really login
CommWaitFor "login:"
CommSend username
CommSend "%r"
CommWaitFor "password:"
CommSend password
CommSend "%r"
CommWaitFor "type):"
CommSend "%r"
CommSend "ppp"
CommSend "%r"
END #success if we got this far